float swh2, swh1, cnst4, points_per_chunk;

//points per chunk
FETCHPAR("SWH", &swh2)
FETCHPARN(1, "SWH", &swh1)
points_per_chunk = swh2/swh1; 
STOREPARS("L 31", (int)round(points_per_chunk))

//dropped points
FETCHPARS("CNST 4", &cnst4)
STOREPARS("L 30", (int)cnst4);

XAU("proc_reset", "")

QUIT